
 1000  *SAVE S.DATE.FILES
 1010  *--------------------------------
 1020  *      PUT DATE ON ALL NEW FILES
 1030  *--------------------------------
 1040         .OR $A33F    IN BSAVE COMMAND
 1050         .TF B.1
 1060         JSR PATCH
 1070  *--------------------------------
 1080         .OR $A3A5    IN SAVE COMMAND
 1090         .TF B.2
 1100         JSR PATCH
 1110  *--------------------------------
 1120         .OR $A3BE    IN SAVE COMMAND
 1130         .TF B.3
 1140         JSR PATCH
 1150  *--------------------------------
 1160  SLOT   .EQ 5
 1170  CLOCK  .EQ SLOT*16+$C080
 1180  *--------------------------------
 1190         .OR $B6B3
 1200         .TF B.4
 1210  PATCH
 1220         PHA
 1230         LDA #$10     HOLD CLOCK
 1240         STA CLOCK+1  
 1250         LDY #32      DELAY 150 MICROSECONDS
 1260  .1     DEY          WHILE HOLD TAKES EFFECT
 1270         BNE .1
 1280         LDY #7       MOVE 8 CHARS
 1290  .2     LDA MAP,Y    NEXT BYTE FROM MAP
 1300         BMI .3       COPY CHARACTER
 1310         STA CLOCK+2       SELECT REGISTER
 1320         LDA CLOCK+2       READ REGISTER
 1330         ORA #$B0     CONVERT TO ASCII
 1340  .3     STA $AA8B,Y  IN LAST 8 CHARS OF PRIMARY FNB
 1350         DEY
 1360         BPL .2       LOOP UNTIL ALL 8 CHARS MOVED
 1370         LDA #0       RELEASE CLOCK
 1380         STA CLOCK+1  
 1390         PLA
 1400         JMP $A3D5    CONTINUE AFTER PATCH
 1410  *--------------------------------
 1420  MAP    .HS 2A29AF2827AF2C2B
 1430  *--------------------------------

